object frmAlarm: TfrmAlarm Left = 155 Top = 103 HorzScrollBar.Visible = False VertScrollBar.Visible = False ActiveControl = calDate BorderIcons = [] BorderStyle = bsDialog ClientHeight = 300 ClientWidth = 282 Font.Color = clWindowText Font.Height = 12 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop KeyPreview = True Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object panMain: TPanel Left = 0 Top = 0 Width = 282 Height = 269 Align = alTop Alignment = taLeftJustify BevelInner = bvRaised BevelOuter = bvNone BorderWidth = 4 TabOrder = 0 object lblDate: TLabel Left = 12 Top = 8 Width = 260 Height = 20 Alignment = taCenter AutoSize = False end object lblTime: TLabel Left = 114 Top = 154 Width = 23 Height = 13 Alignment = taRightJustify Caption = '&Time' FocusControl = txtHour end object calDate: TCalendar Left = 13 Top = 28 Width = 255 Height = 95 Hint = 'Click to select a date' StartOfWeek = 0 TabOrder = 0 UseCurrentDate = False OnChange = calDateChange end object btnYearBack: TButton Left = 13 Top = 122 Width = 48 Height = 18 Hint = '1 Year Back' Caption = '<<' TabOrder = 1 OnClick = btnYearBackClick end object btnMonthBack: TButton Left = 61 Top = 122 Width = 48 Height = 18 Hint = '1 Month Back' Caption = '<' TabOrder = 2 OnClick = btnYearBackClick end object btnMonthFore: TButton Left = 172 Top = 122 Width = 48 Height = 18 Hint = '1 Month Forward' Caption = '>' TabOrder = 4 OnClick = btnYearBackClick end object btnYearFore: TButton Left = 220 Top = 122 Width = 48 Height = 18 Hint = '1 Year Forward' Caption = '>>' TabOrder = 5 OnClick = btnYearBackClick end object btnToday: TButton Left = 109 Top = 122 Width = 63 Height = 18 Hint = 'Select Today'#39's Date' Caption = 'Today' TabOrder = 3 OnClick = btnYearBackClick end object cboAMPM: TComboBox Left = 230 Top = 151 Width = 39 Height = 21 Hint = 'AM / PM' Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'AM' 'PM') MaxLength = 2 TabOrder = 10 end object udwHour: TUpDown Left = 169 Top = 151 Width = 12 Height = 21 Hint = 'Hours' Associate = txtHour Min = 0 Max = 11 Position = 0 TabOrder = 7 Wrap = True end object txtHour: TEdit Left = 144 Top = 151 Width = 25 Height = 21 Hint = 'Hours' TabOrder = 6 Text = '0' end object udwMinute: TUpDown Left = 212 Top = 151 Width = 12 Height = 21 Hint = 'Minutes' Associate = txtMinute Min = 0 Max = 59 Position = 0 TabOrder = 9 Wrap = True end object txtMinute: TEdit Left = 187 Top = 151 Width = 25 Height = 21 Hint = 'Minutes' TabOrder = 8 Text = '0' OnChange = txtMinuteChange end object lstWeekdays: TListBox Left = 13 Top = 197 Width = 255 Height = 59 Hint = 'Weekdays to Repeat Alarm' Columns = 3 Enabled = False ExtendedSelect = False ItemHeight = 13 Items.Strings = ( 'Sunday' 'Monday' 'Tuesday' 'Wednesday' 'Thursday' 'Friday' 'Saturday') MultiSelect = True TabOrder = 12 end object chkRepeat: TCheckBox Left = 13 Top = 175 Width = 255 Height = 19 Hint = 'Enable/Disable Repeat Settings' Caption = '&Repeat Settings' TabOrder = 11 OnClick = chkRepeatClick end end object btnSet: TButton Left = 42 Top = 270 Width = 75 Height = 25 Hint = 'Set Alarm' Caption = 'OK' Default = True TabOrder = 1 OnClick = btnSetClick end object btnCancel: TButton Left = 123 Top = 270 Width = 75 Height = 25 Hint = 'Cancel Changes' Cancel = True Caption = 'Cancel' TabOrder = 2 OnClick = btnCancelClick end object btnReset: TButton Left = 203 Top = 270 Width = 75 Height = 25 Hint = 'Reset/Remove Alarm' Caption = '&Reset' TabOrder = 3 OnClick = btnResetClick end end